home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4th86_v4.zip / SECDELAY.4TH < prev    next >
Text File  |  1993-12-08  |  428b  |  25 lines
  1. code secdelay
  2.  
  3.         pop      ax    ( count )
  4.         mov      bx,0
  5.  
  6.     mov    bl,al    ( count )
  7. | tloop
  8.         mov      ah,2ch    ( get system time )
  9.         int      21h
  10.     mov    bh,dh    ( seconds )
  11. | dloop
  12.     int    21h
  13.     cmp    bh,dh    ( has it changed )
  14.     jz    dloop    ( loop if not )
  15.     dec    bl    ( dec count )
  16.     mov    bh,0
  17.     push    bx
  18.     push    bx
  19.         :enter  dup 9 > if 8 .c then 8 8 .c .c  . :exit
  20.     pop    bx
  21.     cmp    bl,0
  22.     jnz    tloop
  23. labels
  24. ;  
  25.